﻿Public Class Form1

    Private Sub menuAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuAbout.Click
        Dim frm As New frmAboutus()
        frm.MdiParent = Me
        frm.ShowInTaskbar = False
        frm.Show()
    End Sub
    Private Sub menuBaoCaoDoanhThu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuBaoCaoDoanhThu.Click
        Dim frm As New frmBaoCaoDoanhThu()
        frm.MdiParent = Me
        frm.ShowInTaskbar = False
        frm.Show()
    End Sub
    Private Sub menuBaoCaoSDThuoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuBaoCaoSDThuoc.Click
        Dim frm As New frmBaoCaoSDThuoc()
        frm.MdiParent = Me
        frm.ShowInTaskbar = False
        frm.Show()
    End Sub
    Private Sub menuCauHinh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuCauHinh.Click
        Dim frm As New frmThamSo()
        frm.MdiParent = Me
        frm.ShowInTaskbar = False
        frm.Show()
    End Sub
    Private Sub menuLoaiBenh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuLoaiBenh.Click
        Dim frm As New frmLoaiBenh()
        frm.MdiParent = Me
        frm.ShowInTaskbar = False
        frm.Show()
    End Sub
    Private Sub QuảnLýBệnhNhânToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuảnLýBệnhNhânToolStripMenuItem.Click
        Dim frm As New frmBenhNhan()
        frm.MdiParent = Me
        frm.ShowInTaskbar = False
        frm.Show()
    End Sub
    Private Sub menuQuanLyThuoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuQuanLyThuoc.Click
        Dim frm As New frmLoaiThuoc()
        frm.MdiParent = Me
        frm.ShowInTaskbar = False
        frm.Show()
    End Sub
    Private Sub menuCachDung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuCachDung.Click
        Dim frm As New frmCachDung()
        frm.MdiParent = Me
        frm.ShowInTaskbar = False
        frm.Show()
    End Sub
    Private Sub menuDonViTinh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuDonViTinh.Click
        Dim frm As New frmDonViTinh()
        frm.MdiParent = Me
        frm.ShowInTaskbar = False
        frm.Show()
    End Sub
    Private Sub menuTiepNhanBenhNhan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuTiepNhanBenhNhan.Click
        Dim frm As New frmTiepNhanBN()
        frm.MdiParent = Me
        frm.ShowInTaskbar = False
        frm.Show()
    End Sub
End Class
